home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act1 / 00111.ls < prev    next >
Encoding:
Text File  |  1995-04-03  |  932 b   |  36 lines
  1. on mouseUp
  2.   global TRIAL, game1level, animlist, numberbugs, backframe3
  3.   set snumber to the clickOn - 37
  4.   set backframe3 to the frame
  5.   play frame string(snumber)
  6.   if game1level > 1 then
  7.     go(backframe3)
  8.     puppetSprite(37 + snumber, 1)
  9.     set the castNum of sprite (37 + snumber) to the number of cast string(snumber)
  10.     updateStage()
  11.   end if
  12.   if game1level = 1 then
  13.     go(line snumber of animlist)
  14.   else
  15.     if game1level = 2 then
  16.       if snumber = numberbugs then
  17.         go(line snumber of animlist)
  18.       else
  19.         set TRIAL to TRIAL + 1
  20.         play frame "wrong2" & TRIAL
  21.         if TRIAL > 2 then
  22.           play frame string(numberbugs)
  23.         end if
  24.         go(backframe3)
  25.         if TRIAL = 4 then
  26.           repeat with xxx = 37 to 47
  27.             puppetSprite(xxx, 1)
  28.           end repeat
  29.           highlight()
  30.           go(line numberbugs of animlist)
  31.         end if
  32.       end if
  33.     end if
  34.   end if
  35. end
  36.